﻿Imports Microsoft.VisualBasic

Public Class Estudiante
    Inherits Persona

#Region "Atributo"

    Private _colegioAnterior As String

#End Region

#Region "Propiedades"

    Property ColegioAnterior() As String
        Get
            Return _colegioAnterior
        End Get
        Set(ByVal Value As String)
            _colegioAnterior = Value
        End Set
    End Property

#End Region

#Region "Constructor"

    Public Sub New(ByVal personaId As Integer, ByVal nombre As String, ByVal apPaterno As String, ByVal apMaterno As String, _
                   ByVal ci As String, ByVal sexo As String, ByVal direccion As String, ByVal telefono As String, ByVal email As String, _
                   ByVal fechaN As Date, ByVal lugarN As String, ByVal celular As String, ByVal colegioAnterior As String)
        MyBase.New(personaId, nombre, apPaterno, apMaterno, ci, sexo, direccion, telefono, email, fechaN, lugarN, celular)
        Me._colegioAnterior = colegioAnterior
    End Sub

#End Region


End Class
